home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / PRINT.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.1 KB  |  94 lines
  1. 5 GOTO2010
  2. 10 POKE56,92:POKE55,.
  3. 11 CLR:Z$=CHR$(.):M$=CHR$(13):F=15:V=53248:E=56576:SYS58784:PRINT"[147][154]"
  4. 12 X=4:REM PRINTER DEVICE #
  5. 13 PRINT"ENTER DISK DRIVE DEVICE NUMBER."
  6. 14 PRINT"(ENTER 0 TO EXIT.)"
  7. 15 PRINT:PRINT"  8[145]":INPUTD:IFD=.THEN800
  8. 16 IFD-8AND252THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO13
  9. 17 POKE2,35:POKE184,8:POKE185,8:POKE186,D
  10. 18 POKE183,1:POKE187,2:POKE188,.:SYS65472
  11. 19 IFPEEK(783)AND1THENCLOSE8:PRINT"[147]?DEVICE";D;"[157] NOT PRESENT":GOTO13
  12. 20 CLOSE8:OPEN15,D,15:PRINT"[147]";
  13. 21 PRINT"PRESS RETURN FOR DIRECTORY."
  14. 22 PRINT"PRESS S TO START OVER."
  15. 23 PRINT"PRESS C FOR CURRENT IMAGE IN MEMORY."
  16. 24 PRINT"TO ENTER FILENAME, PRESS:"
  17. 25 PRINT"D FOR STANDARD DOODLE (DD PREFIX)."
  18. 26 PRINT"J FOR COMPRESSED DOODLE (JJ PREFIX)."
  19. 27 PRINT"H FOR HI-RES (8000 BYTE)."
  20. 28 GETY$:IFY$=M$THENOPEN8,D,0,"$":SYS49152:PRINT"[147]";:GOTO21
  21. 29 IFY$="C"THEN600
  22. 30 IFY$="S"THEN11
  23. 31 IFY$="C"THEN600
  24. 32 IFY$="D"THEN40
  25. 33 IFY$="J"THEN57
  26. 34 IFY$="H"THEN60
  27. 35 GOTO28
  28. 40 PRINT"ENTER FILENAME (INCLUDE DD PREFIX)."
  29. 45 F$="":PRINT:INPUTF$:IFF$=""THENPRINT"[147]";:GOTO21
  30. 50 OPEN8,D,8,F$:GOSUB900:IFATHENCLOSE8:GOTO21
  31. 55 GOSUB700:GOTO65
  32. 57 PRINT"ENTER FILENAME (INCLUDE JJ PREFIX)."
  33. 58 GOTO45
  34. 60 PRINT"ENTER FILENAME."
  35. 62 GOTO45
  36. 65 PRINT"PRESS RETURN TO LOAD AND DISPLAY:"
  37. 67 PRINTF$
  38. 70 GETA$:IFA$=M$THEN80
  39. 75 GOTO70
  40. 80 GOSUB300:SYS49371:IFY$="D"THENSYS49430:GOTO85
  41. 82 IFY$="J"THENSYS50659:GOTO85
  42. 83 IFY$="H"THENSYS50616
  43. 85 SYS50088:FF=.:IFPEEK(783)AND1THENFF=1
  44. 90 GETA$:IFA$="X"THENGOSUB200:GOTO11
  45. 92 IFA$="B"THENPOKEV+32,PEEK(V+32)+1ANDF
  46. 95 IFA$="R"THENSYS49491
  47. 100 IFA$="P"THEN110
  48. 105 GOTO90
  49. 110 GOSUB200:Q$=CHR$(34)
  50. 111 IFFFTHEN120
  51. 112 PRINT"[147]MORE THAN TWO COLORS ARE USED IN FILE,"
  52. 113 PRINT"SO PRINTOUT MAY BE DISTORTED."
  53. 114 PRINT"PRESS RETURN TO PROCEED."
  54. 115 PRINT"PRESS S TO START OVER."
  55. 117 GETA$:IFA$=M$THEN120
  56. 118 IFA$="S"THEN11
  57. 119 GOTO117
  58. 120 PRINT"[147]TO STOP PRINTING, HOLD THE ";Q$;"A";Q$;" KEY DOWN."
  59. 122 PRINT"PRESS S FOR SINGLE HEIGHT.""
  60. 123 [153]"PRESS D FOR DOUBLE HEIGHT."
  61. 125 [161]A$:[139]A$[178]"S"[167][151]839,.:[137]140
  62. 130 [139]A$[178]"D"[167][151]839,255:[137]140
  63. 135 [137]125
  64. 140 [151]828,X:[141]300:[151]56334,.:[158]49556:[151]56334,17:[137]11
  65. 200 [151]V[170]17,27:[151]E,7:[151]V[170]24,20:[151]V[170]32,14:[142]
  66. 300 [151]V[170]17,59:[151]E,6:[151]V[170]24,120:[151]V[170]32,.:[142]
  67. 600 [141]700
  68. 610 [158]50088:FF[178].:[139][194](783)[175]1[167]FF[178]1
  69. 615 [153]"PRESS RETURN TO DISPLAY IMAGE."
  70. 620 [161]A$:[139]A$[178]M$[167]650
  71. 630 [137]620
  72. 650 [141]300:[137]90
  73. 700 [153]"LOADWHILE IMAGE IS DISPLAYED, PRESS:
  74. 710 PRINT"B TO STEP THROUGH BORDER COLORS."
  75. 720 PRINT"R TO TOGGLE REVERSE VIDEO ON/OFF."
  76. 730 PRINT"P TO PRINT IMAGE."
  77. 740 PRINT"X TO EXIT GRAPHICS MODE."
  78. 750 RETURN
  79. 800 CLOSE8:CLOSE15:POKE56,160:END
  80. 900 INPUT#15,A,B$,C,Z
  81. 910 IFA<20THENA=.:GOTO930
  82. 920 PRINT:PRINTA:PRINT:PRINTB$:PRINT:PRINTC,D
  83. 930 RETURN
  84. 2010 POKE56,99:PRINT"[147][142]ONE MOMENT PLEASE..."
  85. 2020 P=PEEK(45)+256*PEEK(46)-1
  86. 2030 IFPEEK(P)THENP=P-1:GOTO2030
  87. 2040 P=P-1589:S=49152
  88. 2050 FORI=.TO450:POKES+I,PEEK(P+I):NEXT
  89. 2060 PRINT"BASIC TRANSFERS ARE S O  S L O W..."
  90. 2070 FORI=ITO1150:POKES+I,PEEK(P+I):NEXT
  91. 2080 PRINT"ALMOST DONE..."
  92. 2090 FORI=ITO1589:POKES+I,PEEK(P+I):NEXT
  93. 3000 POKE2054,48:GOTO10
  94.